home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / Afc / Parser_Example1.e < prev    next >
Text File  |  1997-09-09  |  641b  |  30 lines
  1. /*
  2.  
  3.   $VER: Parser Example 1 - (C)Copyright Amiga Foundation Classes
  4.  
  5.   Written By: Fabio Rotondo
  6.  
  7.   This code is Public Domain
  8.  
  9. */
  10.  
  11. MODULE 'afc/parser', 'afc/explain_exception'
  12.  
  13. PROC main() HANDLE
  14.   DEF par=NIL:PTR TO parser
  15.  
  16.   NEW par.parser()
  17.  
  18.   WriteF('Template: FILE/A,COLOR/K,NAME/K\n')
  19.   WriteF('STRING:   NAME="Amiga Foundation Classes" COLOR="Blue" Parser.e\n')
  20.  
  21.   par.parse('FILE/A,COLOR/K,NAME/K', 'NAME="Amiga Foundation Classes" COLOR="Blue" Parser.e')
  22.  
  23.   WriteF('Results:\nArg 0 (File)   - \s\nArg 1 (Color)  - \s\nArg 2 (Name)   - \s\n', par.arg(0), par.arg(1), par.arg(2))
  24.  
  25. EXCEPT DO
  26.   explain_exception()
  27.   END par
  28. ENDPROC
  29.  
  30.